﻿Public Class frmConsultaParticularidade
    Dim objBLL As New BLLPaSala
    Dim DiaSemana As Integer = Date.Now.DayOfWeek
#Region "ComboBox Filtro"
    Private Sub cbFiltro_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbFiltro.SelectedIndexChanged
        Select Case cbFiltro.SelectedIndex
            Case 1
                cbDiaSemana.SelectedIndex = DiaSemana
                cbDiaSemana.DropDownStyle = ComboBoxStyle.DropDown
            Case Else
                cbDiaSemana.SelectedIndex = -1
                cbDiaSemana.Text = ""
                cbDiaSemana.DropDownStyle = Nothing
        End Select
    End Sub
    Private Sub cbFiltro_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cbFiltro.KeyPress
        e.Handled = True
    End Sub
#End Region
#Region "ComboBox Dia Semana"
    Private Sub cbDiaSemana_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cbDiaSemana.KeyPress
        If cbFiltro.SelectedIndex = 1 Then
            e.Handled = True
        End If
        If cbFiltro.SelectedIndex = 0 Then
            'Não deixo o Usuário Digitar Letras so Números
            'e Tambem libero para ele Poder Apagar o(s) Números
            If Not Char.IsNumber(e.KeyChar) And Not e.KeyChar = vbBack Then
                e.Handled = True
            End If
        End If
        If e.KeyChar = Convert.ToChar(Keys.Return) Then
            e.Handled = True
            bLocalizar_Click(sender, e)
        End If
    End Sub
#End Region
#Region "Métodos"
    Sub Limpa()
        dgParticularidade.DataSource = Nothing
        cbDiaSemana.SelectedIndex = DiaSemana
        cbFiltro.SelectedIndex = 1
    End Sub
#End Region
    Private Sub frmConsultaParticularidade_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Limpa()
    End Sub
#Region "Botão Voltar"
    Private Sub tsbVoltar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbVoltar.Click
        Me.Close()
    End Sub
#End Region
#Region "Botão Novo"
    Private Sub tsbNovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbNovo.Click
        frmParticularidade.tipo = "Novo"
        frmParticularidade.ShowDialog()
        Limpa()
    End Sub
#End Region
#Region "Botão Localizar"
    Private Sub bLocalizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLocalizar.Click

        If Trim(cbDiaSemana.Text) <> "" Then
            dgParticularidade.DataSource = objBLL.LocalizaParticularidade(cbFiltro.SelectedIndex, cbDiaSemana.Text)
            dgParticularidade.Columns(0).HeaderText = "Código"
            'Defino o Tamanho da Coluna do DataGridView
            dgParticularidade.Columns(0).Width = 70
            dgParticularidade.Columns(1).HeaderText = "Sala"
            dgParticularidade.Columns(1).Width = 70
            dgParticularidade.Columns(2).HeaderText = "Sala descrição"
            dgParticularidade.Columns(2).Width = 150
            dgParticularidade.Columns(3).HeaderText = "Hora início"
            dgParticularidade.Columns(3).Width = 130
            dgParticularidade.Columns(4).HeaderText = "Hora final"
            dgParticularidade.Columns(4).Width = 130
            dgParticularidade.Columns(5).HeaderText = "Dia"
            dgParticularidade.Columns(5).Width = 130
            dgParticularidade.Columns(6).HeaderText = "Detalhes"
            dgParticularidade.Columns(6).Width = 250
            dgParticularidade.Columns(7).Visible = False
            dgParticularidade.Columns(8).Visible = False

        Else
            MsgBox("Favor informar descrição a ser procurada", MsgBoxStyle.Information)
        End If
    End Sub
#End Region

End Class